home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / MAKE DISP VAR.bas < prev    next >
BASIC Source File  |  2003-06-12  |  450b  |  7 lines
  1. 100  PRINT "<CTRL-D>OPEN DISP VAR"
  2. 200  PRINT "<CTRL-D>WRITE DISP VAR"
  3. 1000  PRINT "AV=PEEK(108)*256+PEEK(107)"
  4. 2000  PRINT "SV=PEEK(106)*256+PEEK(105)"
  5. 3000  PRINT "TEXT:H=1"
  6. 4000  PRINT "HOME:FORI=SVTO(AV-7)STEP7:A$=CHR$(PEEK(I)-(PEEK(I)>127)*128)+CHR$(PEEK(I+1)-(PEEK(I+1)>127)*128)+CHR$(((PEEK(I)>127 AND (I+1)>127))*37)+CHR$(((PEEK(I)<128) AND (PEEK(I+1)>127))*36):HTABH:VTAB(I-SV)/70+1:?A$:H=(H+4)*(H<37)+(H=37):NEXT
  7. 5000  PRINT "<CTRL-D>CLOSE"